home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_137_New Report.bin < prev    next >
Text File  |  1995-11-23  |  1KB  |  45 lines
  1. ItemType: WIND
  2. Rect: 198,234,518,343
  3. AutoSize: FALSE
  4. Style: Dialog
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. Name: New Report
  8. Params: i0_TopLeft
  9. Result: i2_Text
  10.  
  11. ItemType: BOX
  12. Rect: 0,17,170,35
  13. AutoSize: FALSE
  14. Visible: FALSE
  15. BlackColor: 0,0,13107
  16. PenSize: 2,2
  17.  
  18. ItemType: TEXT
  19. Rect: 1,38,319,60
  20. Name: Name
  21. LockText: FALSE
  22. TextAlign: Center
  23.  
  24. ItemType: PUSH
  25. Rect: 149,79,229,99
  26. Name: Cancel
  27. AutoClose: TRUE
  28.  
  29. ItemType: PUSH
  30. Rect: 243,79,315,99
  31. Name: OK
  32. DefaultItem: TRUE
  33. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"name","text")┬put it into namer┬if (namer=empty) then┬  beep┬  alertNote("You forgot to enter a name for the Report.")┬else┬  if checkQuality(namer,25)="fail" then┬    alertNote("Incorrect entry╤either too long or contains improper characters.")┬    wsSet wdID,"name","Text",""┬  else┬    put fld "ReportList" of cd 1 into reportList┬    if (item 1 of checkifThere(namer,"reportList"))="found" then┬      beep┬      alertNote("The report name ╥"&namer&"╙ is already used."&return&return&"Please enter another.")┬      wsSet wdID,"name","Text",""┬    else┬      wsSend "New Report",0,"close"┬    end if┬  end if┬end if┬--end mouseUp┬
  34.  
  35. ItemType: LBL
  36. Rect: 1,0,159,16
  37. Text: Name of new report:
  38.  
  39. ItemType: TEXT
  40. Rect: 3,19,193,32
  41. TextFont: Geneva
  42. TextSize: 9
  43. AutoSize: FALSE
  44. Name: instr
  45. Text: 25 letters or less, no ╥/╙,╥(╙ or ╥,╙